home *** CD-ROM | disk | FTP | other *** search
- object FormHTMLFont: TFormHTMLFont
- Left = 397
- Top = 155
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Html Font Settings'
- ClientHeight = 413
- ClientWidth = 536
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- OnClose = FormClose
- PixelsPerInch = 96
- TextHeight = 13
- object Button2: TButton
- Left = 296
- Top = 384
- Width = 75
- Height = 25
- Caption = '&OK'
- Default = True
- TabOrder = 2
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 376
- Top = 384
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 3
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 456
- Top = 384
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 4
- OnClick = Button4Click
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 536
- Height = 80
- Align = alTop
- BevelOuter = bvNone
- Color = clWhite
- TabOrder = 5
- object Image1: TImage
- Left = 4
- Top = 0
- Width = 65
- Height = 80
- Hint = 'The "Wizard"'
- AutoSize = True
- ParentShowHint = False
- ShowHint = True
- end
- object Label10: TLabel
- Left = 80
- Top = 24
- Width = 441
- Height = 41
- AutoSize = False
- Caption =
- 'Use this to create a font tag to control the way text is display' +
- 'ed. Fill in the fields you want to include in the tag. Leaving a' +
- ' field blank will exclude that attribute from the tag.'
- WordWrap = True
- end
- object Label15: TLabel
- Left = 80
- Top = 64
- Width = 33
- Height = 17
- AutoSize = False
- Caption = 'Note:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label16: TLabel
- Left = 120
- Top = 64
- Width = 401
- Height = 17
- AutoSize = False
- Caption =
- 'For more attributes and event handlers, use the Attribute Assist' +
- 'ant with <font>.'
- WordWrap = True
- end
- object Label20: TLabel
- Left = 96
- Top = 0
- Width = 345
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Html Fonts'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clTeal
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 200
- Width = 521
- Height = 177
- Caption = 'Font Properties'
- TabOrder = 0
- object Label1: TLabel
- Left = 192
- Top = 56
- Width = 57
- Height = 17
- AutoSize = False
- Caption = 'Point Size:'
- end
- object Label2: TLabel
- Left = 192
- Top = 24
- Width = 57
- Height = 17
- AutoSize = False
- Caption = 'Font Color:'
- end
- object List1: TListBox
- Left = 8
- Top = 16
- Width = 177
- Height = 153
- HelpContext = 1029
- ItemHeight = 13
- TabOrder = 0
- OnClick = List1Click
- end
- object Size: TEdit
- Left = 256
- Top = 52
- Width = 25
- Height = 21
- HelpContext = 1031
- Color = clBtnFace
- Enabled = False
- ReadOnly = True
- TabOrder = 3
- Text = '10'
- end
- object UpDown1: TUpDown
- Left = 281
- Top = 52
- Width = 15
- Height = 21
- Associate = Size
- Enabled = False
- Min = 1
- Position = 10
- TabOrder = 4
- Wrap = False
- OnClick = UpDown1Click
- end
- object CheckSize: TCheckBox
- Left = 304
- Top = 56
- Width = 97
- Height = 17
- HelpContext = 1032
- Caption = 'Include Size'
- TabOrder = 5
- OnClick = CheckSizeClick
- end
- object Color: TEdit
- Left = 256
- Top = 20
- Width = 97
- Height = 21
- HelpContext = 1030
- TabOrder = 1
- end
- object FColor: TButton
- Left = 353
- Top = 21
- Width = 20
- Height = 19
- Caption = '...'
- TabOrder = 2
- OnClick = FColorClick
- end
- object Bold: TCheckBox
- Left = 416
- Top = 24
- Width = 49
- Height = 17
- HelpContext = 1034
- Caption = 'Bold'
- TabOrder = 6
- OnClick = BoldClick
- end
- object Italic: TCheckBox
- Left = 416
- Top = 48
- Width = 49
- Height = 17
- HelpContext = 1035
- Caption = 'Italic'
- TabOrder = 7
- OnClick = ItalicClick
- end
- object Underline: TCheckBox
- Left = 416
- Top = 72
- Width = 73
- Height = 17
- HelpContext = 1036
- Caption = 'Underline'
- TabOrder = 8
- OnClick = UnderlineClick
- end
- object Strike: TCheckBox
- Left = 416
- Top = 96
- Width = 57
- Height = 17
- HelpContext = 1037
- Caption = 'Strike'
- TabOrder = 9
- OnClick = StrikeClick
- end
- object Button1: TButton
- Left = 192
- Top = 112
- Width = 153
- Height = 25
- HelpContext = 1033
- Caption = '>> &Add Font Face to Tag'
- TabOrder = 10
- OnClick = Button1Click
- end
- object EditList: TEdit
- Left = 192
- Top = 146
- Width = 321
- Height = 21
- HelpContext = 1033
- TabOrder = 11
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 88
- Width = 521
- Height = 105
- HelpContext = 1026
- Caption = 'Preview'
- TabOrder = 1
- TabStop = True
- object Label5: TLabel
- Left = 400
- Top = 16
- Width = 89
- Height = 33
- AutoSize = False
- Caption = 'Change preview background color:'
- WordWrap = True
- end
- object Label3: TLabel
- Left = 400
- Top = 56
- Width = 43
- Height = 13
- Caption = 'Example:'
- end
- object Panel1: TPanel
- Left = 8
- Top = 16
- Width = 385
- Height = 81
- HelpContext = 1026
- BevelOuter = bvLowered
- Caption = 'Example Text'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object PColor: TButton
- Left = 493
- Top = 22
- Width = 20
- Height = 19
- HelpContext = 1027
- Caption = '...'
- TabOrder = 1
- OnClick = PColorClick
- end
- object Example: TEdit
- Left = 400
- Top = 72
- Width = 113
- Height = 21
- HelpContext = 1028
- TabOrder = 2
- Text = 'Example Text'
- OnChange = ExampleChange
- end
- end
- end
-